(load-file "geometry.clj")
(load-file "camera.clj")


(defstruct Context :meshes :cameras)

; creates a context with a default camera
(defn create-context [] (struct Context ([] ; meshes
					 [(create-camera)]))) ; cameras